home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / vbcc / machines / amiga68k / libsrc / _lmodu.c < prev    next >
Encoding:
Text File  |  1998-06-24  |  250 b   |  15 lines
  1. unsigned long _lmodu(unsigned long z,unsigned long n)
  2. {
  3.     unsigned long t=1;
  4.     if(!n) return(0);
  5.     while(n<=0xffffffff/2&&n<=z/2){
  6.         n*=2;t++;
  7.     }
  8.     while(t){
  9.         if(z>=n){ z-=n;}
  10.         t--;
  11.         n/=2;
  12.     }
  13.     return(z);
  14. }
  15.